GOTO Mars11
Marsroutine:
CLS
PALETTE 0,0,0,0
LINE(0,80)-(600,80)
BVERH=0.5
CIRCLE(320,50),3.3935,1,,,BVERH
BVERH=BVERH*1
PALETTE 3,1,0.4,0
PALETTE 2,0,0,0
COLOR 3,0

PAINT(320,50),3,1
RETURN
Mars11:
CLS
GOSUB Marsroutine
PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT 
PRINT
PRINT"Auch auf dem Mars gibt es Vulkane.Eine sehr bekannte Vulkangegend"
PRINT"ist der Tharsis-Rücken(110°-120° im Westen). Einer der größten"
PRINT"Vulkane im Sonnensytem ist vermutlich der Olympus Mons "
PRINT"der auch auf dem Tharsis-Rücken liegt.Er hat einen Durchmesser"
PRINT"von 600 km. Interessante Objekte auf dem Mars sind auch noch "
PRINT"die Marspole .Das Eis an den Polen besteht aus Wasser.Darüber"
PRINT"liegt eine Schicht aus gefrorenem Kohlendioxid.Am Rande der"
PRINT"Pole existieren Feuchtgebiete ,welche im Marssommer schmelzen"
PRINT"und im Marswinter gefrieren. Der Südpol des Mars besteht"
PRINT"aus einem Wasserrervoir von 500 000 km^3 Wasser.  "
PRINT"M:Menü                                 I:More Info."
Taste37:
GG$=INKEY$
IF GG$<>"" THEN GG$=UCASE$(GG$)
     IF GG$="M" THEN Hauptmenu
     IF GG$="I" THEN Mars12
GOTO Taste37
Mars12:
CLS
GOSUB Marsroutine
PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT 
PRINT
PRINT"Dieses entspreche einem Meer von einer Ausdehnung von 700 km x"
PRINT"700 km und 1 km Tiefe."
PRINT"Ein Grabenbruch größer als der Grand Canyon mit einer Länge"
PRINT"von 4000 km,einer Breite von 80-120 km und einer Tiefe von 1-"
PRINT"3 km befindet sich auch auf dem Mars. Es ist das"
PRINT"Valles Marineris. "
PRINT"                `Magnetosphäre`    "
PRINT"Messungen der Mariner 9-Sonde ergaben das der Mars im "
PRINT"Inneren völlig erkaltet ist.Deshalb tritt bei im auch nicht "
PRINT"der `Dynamoeffekt` auf .Dadurch beträgt die Magnetfeldstärke"
PRINT"des Mars nur 10-30 Gamma(Erde=30000 Gamma)."
PRINT"M:Menü                                   I:More Info"
Taste39:
HH$=INKEY$
IF HH$<>"" THEN HH$=UCASE$(HH$)
     IF HH$="M" THEN Hauptmenu
     IF HH$="I" THEN Mars13
GOTO Taste39
Mars13:
CLS
GOSUB Marsroutine
PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT 
PRINT
PRINT"                        Marsmonde"
PRINT"Die Marsmonde sind im Prinzip nichts weiter als größere"
PRINT"Gesteinsbrocken .Der Mars hat die Monde vermutlich auf-"
PRINT"gefangen als sie als Kometen am Mars vorbei flogen."
PRINT"Eine andere Theorie ist das ein Komet auf dem Mars auf-"
PRINT"schlug und dabei Gesteinbrocken ins All schleuderte,welches"
PRINT"heute die Marsmonde sein könnten."
PRINT"                          Phobos:"
PRINT"Phobos hat einen Durchmesser von ungefehr 16 km. "
PRINT"M:Menü                              I:More Info"
Taste40:
II$=INKEY$
IF II$<>"" THEN II$=UCASE$(II$)
     IF II$="M" THEN Hauptmenu
     IF II$="I" THEN Mars14
GOTO Taste40
Mars14:
CLS
GOSUB Marsroutine
PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT 
PRINT
PRINT"Er ist 5875 km vom Mars entfernt. Phobos hat eine Dichte"
PRINT"von 2,1. Die Umlaufzeit beträgt 7 Std. 39 Min./m  ."
PRINT"Das Albedo(Rückstrahlvermögen) beträgt 0,06."
PRINT"                         Deimos"
PRINT"Deimos hat einen Durchmesser von ca. 8 km. Deimos ist"
PRINT"20000 km vom Mars entfernt. Die Umlaufzeit des Deimos"
PRINT"beträgt 30Std.18Min./m. Das Albedo(Rückstrahlvermögen)"
PRINT"beträgt 0,075."
PRINT"M:Menü "
Taste42:
JJ$=INKEY$
IF JJ$<>"" THEN JJ$=UCASE$(JJ$)
     IF JJ$="M" THEN Hauptmenu
GOTO Taste42
Hauptmenu:
CHAIN"Amiga-Astro-Info`88g"